home *** CD-ROM | disk | FTP | other *** search
/ Acorn User: China / Acorn User China CD-ROM (UK) (Disc B) / Acorn User China CD-ROM (UK) (Disc B).bin / STUTTGART / EDITORS / UEMACS / !uemacs_!emacs_emacsrc < prev    next >
Encoding:
Text File  |  1991-03-25  |  3.7 KB  |  101 lines
  1. ; Some bindings for Nicko's RISC OS uEmacs
  2.  
  3. set $discmd FALSE
  4.  
  5. ; First, set up some sensible bindings for the cursor keys.
  6.  
  7. bind-to-key backward-character FN,            ; left arrow
  8. bind-to-key previous-word FN<                 ; S-left arrow
  9. bind-to-key beginning-of-line FNL             ; C-left arrow
  10.  
  11. bind-to-key forward-character FN-             ; right arrow
  12. bind-to-key next-word FN=                     ; S-right arrow
  13. bind-to-key end-of-line FNM                   ; C-right arrow
  14.  
  15. bind-to-key previous-line FN/                 ; up arrow
  16. bind-to-key previous-page FN?                 ; page up
  17. bind-to-key beginning-of-file FNO             ; C-up arrow
  18. bind-to-key beginning-of-file ^^              ; Home
  19.  
  20. bind-to-key next-line FN.                     ; down arrow
  21. bind-to-key next-page FN>                     ; page down
  22. bind-to-key end-of-file FNN                   ; C-down arrow
  23.  
  24. bind-to-key handle-tab FN*                    ; Tab
  25.  
  26. bind-to-key delete-next-character FN+         ; Copy
  27. bind-to-key delete-next-word FN;              ; S-Copy
  28. bind-to-key kill-to-end-of-line FN[           ; S-C-copy
  29.  
  30. bind-to-key yank FNa                          ; Insert
  31.  
  32. bind-to-key next-line FNd                     ; V-scroll line down
  33. bind-to-key previous-line  FNh                ; V-scroll line up
  34. bind-to-key next-page FN`                     ; V-scroll page down
  35. bind-to-key previous-page FNl                 ; V-scroll page up
  36.  
  37. ; Now the Twin style keys, unshifted ones first. Note that not everything maps
  38. ; as nicely as some things, and that my current fn key setup doesn't register
  39. ; f10-f12 - this will be fixed someday!
  40.  
  41.                                   ; Print        FN 
  42. bind-to-key i-shell FN!           ; f1
  43. bind-to-key find-file FN"         ; f2
  44. bind-to-key save-file FN#         ; f3
  45. bind-to-key search-forward FN$    ; f4
  46. bind-to-key goto-line FN%         ; f5
  47. bind-to-key set-mark FN&          ; f6
  48.                                   ; f7           FN'
  49.                                   ; f8           FN(
  50.                                   ; f9           FN)
  51.                                   ; f10          FNb
  52.                                   ; f11          FNc
  53.  
  54. ; Now the shifted keys.
  55.  
  56.                                   ; Print        FN0
  57.                                   ; f1           FN1
  58. bind-to-key insert-file FN2       ; f2
  59.                                   ; f3           FN3
  60. bind-to-key exit-emacs FN4        ; f4
  61.                                   ; f5           FN5
  62.                                   ; f6           FN6
  63.                                   ; f7           FN7
  64.                                   ; f8           FN8
  65.                                   ; f9           FN9
  66.                                   ; f10          FNf
  67.                                   ; f11          FNg
  68. ; And now the control fn keys
  69.  
  70.                                   ; Print        FN@
  71. bind-to-key grow-window FNA       ; f1
  72. bind-to-key shrink-window FNB     ; f2
  73.                                   ; f3           FNC
  74.                                   ; f4           FND
  75. bind-to-key quote-character FNE   ; f5
  76. bind-to-key fill-paragraph FNF    ; f6
  77.                                   ; f7           FNG
  78.                                   ; f8           FNH
  79. bind-to-key pipe-command FNI      ; f9              
  80.                                   ; f10          FNj
  81.                                   ; f11          FNk
  82.  
  83. ; Not much in the control-shift-fn key range.
  84.  
  85. ; Hmm, and these are from days of old.
  86.  
  87. ;bind-to-key delete-next-character ⇧
  88. ;bind-to-key delete-other-windows ’
  89. ;bind-to-key split-current-window ‹
  90. ;bind-to-key delete-window Ú
  91.  
  92. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  93.  
  94. ; And now my preferred settings...
  95.  
  96. 4 handle-tab
  97.  
  98. add-global-mode cmode
  99.  
  100. set $discmd TRUE
  101.